home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Games / Xconq 7.0d16 / lib / ng-weird.g < prev    next >
Encoding:
Text File  |  1993-12-20  |  892 b   |  14 lines  |  [TEXT/MPS ]
  1. ;;; This is a generic "pronounceable name" generator.
  2. ;;; Doesn't have any particular flavor, although the weights are
  3. ;;; tilted towards English.
  4.  
  5. (namer generic-names (grammar root 9
  6.   (root (or 5 (syllable " " root)
  7.            30 (syllable syllable)
  8.            20 (syllable syllable syllable)
  9.            50 (syllable root)))
  10.   (syllable (or (start vowel) (vowel end) 3 (start vowel end)))
  11.   (start (or 3 initdiph 7 consonant))
  12.   (end (or 2 enddiph 8 consonant))
  13.   (vowel (or 5 a 9 e 2 i 3 o 2 u y))
  14.   (consona